home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 162 / Tiger_Disk_162_19xx_Tiger-Crew-Disk_de_Side_B.d64 / koala-rename _td (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  111 lines
  1. 1 print"[147]hinweis:":print"wenn du koala-bilder umbenennen moech-  test, deren ";
  2. 2 print"file-name nicht[146]":print"dem 'standard-format' entspricht -
  3. 3 [153]"also '10 zeichen' fuer den namen - ggf. mit nachstehenden 'space' -,"
  4. 4 [153]"so setze vor die programmzeilen":[153]"    680 wait -  710 wait"
  5. 5 [153]"ein 'rem' ! (ansonsten wird der file-   name nicht gefunden!)
  6. 6 print"in diesem fall jetzt 'f8' druecken!"
  7. 7 print"  t i g e r c r e w"
  8. 8 geta$:ifa$=""then8
  9. 9 ifa$=chr$(140)thenlist680-710
  10. 10 poke53280,6:poke53281,6:poke646,1:k2$=chr$(129)+"pic ":s$=" "
  11. 20 print"[147]koala-rename v1.0    written by -t.b.s.-"chr$(142)
  12. 30 print"[158]"chr$(34)"$"chr$(34)" = dir  "chr$(34)"i"chr$(34)" = information";
  13. 40 print"  "chr$(34)"*"chr$(34)" = ende";
  14. 50 print"[153]wollen sie nur koala-bilder umbenennen?"
  15. 60 poke198,0:wait198,1:geta$
  16. 70 ifa$="n"thenprint"[158]nein":goto130
  17. 80 ifa$="j"thenprint"[158]ja":goto580
  18. 90 ifa$="i"then800
  19. 100 ifa$="$"then930
  20. 110 ifa$="*"then990
  21. 120 goto10
  22. 130 rem andere formate
  23. 140 print"[153][1] = koala --> anderes format"
  24. 150 print"[2] = anderes format --> koala"
  25. 160 poke198,0:wait198,1:geta$
  26. 170 ifa$="1"thenprint"[158][1]":goto200
  27. 180 ifa$="2"thenprint"[158][2]":goto420
  28. 190 run
  29. 200 :
  30. 210 print"[153]bitte den namen des koala-bildes angeben[158]";
  31. 220 inputk1$
  32. 230 ifk1$=""thenrun
  33. 240 k1$=left$(k1$,10)
  34. 250 iflen(k1$)<10thenk1$=k1$+s$
  35. 260 iflen(k1$)=10then280
  36. 270 goto250
  37. 280 print"[153]nun den neuen namen[158]"
  38. 290 inputaf$
  39. 300 ifaf$=""thenrun
  40. 310 print"[153]angaben richtig? ";
  41. 320 poke198,0:wait198,1:geta$
  42. 330 ifa$="n"thenrun
  43. 340 print"[158]ja":print"disk einlegen und space druecken!":poke198,0:wait198,1
  44. 350 open15,8,15,"r:"+af$+"="+k2$+k1$
  45. 360 close15
  46. 370 print"[158]diskstatus:[146]";:gosub980
  47. 380 print"[153]bitte eine taste druecken!":poke198,0:wait198,1:run
  48. 390 end
  49. 400 return
  50. 410 :
  51. 420 print"[153]bitte den alten namen angeben[158]"
  52. 430 inputaf$
  53. 440 ifaf$=""thenrun
  54. 450 print"[153]nun der namen des koala-bildes[158]":inputk1$:ifk1$=""thenrun
  55. 460 k1$=left$(k1$,10)
  56. 470 iflen(k1$)<10thenk1$=k1$+s$
  57. 480 iflen(k1$)=10then500
  58. 490 goto470
  59. 500 print"[153]angaben richtig? ";
  60. 510 poke198,0:wait198,1:geta$
  61. 520 ifa$="n"thenrun
  62. 530 print"[158]ja":print"disk einlegen und space druecken!":poke198,0:wait198,1
  63. 540 open15,8,15,"r:"+k2$+k1$+"="+af$:close15
  64. 550 print"[158]diskstatus:[146]";:gosub980
  65. 560 print"[153]bitte eine taste druecken!":poke198,0:wait198,1:run
  66. 570 :
  67. 580 print"[153]neuer name des koalabildes[158]"
  68. 590 inputnk$
  69. 600 ifnk$=""thenrun
  70. 610 nk$=left$(nk$,10)
  71. 620 iflen(nk$)<10thennk$=nk$+s$
  72. 630 iflen(nk$)=10then650
  73. 640 goto620
  74. 650 print"[153]alter name des koalabildes[158]"
  75. 660 inputak$
  76. 670 ifak$=""thenrun
  77. 680 ak$=left$(ak$,10)
  78. 690 iflen(ak$)=10then720
  79. 700 iflen(ak$)<10thenak$=ak$+s$
  80. 710 goto690
  81. 720 print"[153]angaben richtig? ";
  82. 730 poke198,0:wait198,1:geta$
  83. 740 ifa$=""thenrun
  84. 750 ifa$="n"thenrun
  85. 760 print"[158]ja":print"[153]diskette einlegen und taste druecken!":poke198,0:wait198,1
  86. 770 open15,8,15,"r:"+k2$+nk$+"="+k2$+ak$:close15
  87. 780 print"[158]diskstatus:[146]";:gosub980
  88. 790 print"[153]bitte eine taste druecken!":poke198,0:wait198,1:run
  89. 800 print"[147]"chr$(14);
  90. 810 print"[201]nformation:"
  91. 820 print"[193]ndere [205]alprogramme haben folgende [197]rkennungszeichen:"
  92. 830 print"[194][204][193][218][201][206][199] [208][193][196][196][204][197][211]  =  "chr$(34)"[208][201].[206][193][205][197]"chr$(34)
  93. 840 print"[207][195][208] [193][210][212] [211][212][213][196][201][207]   =  "chr$(34)"[206][193][205][197]........[205][208][201][195]"chr$(34)
  94. 850 print"[193][210][212][201][211][212] 64        =  "chr$(34)"[208]-[206][193][205][197]"chr$(34)
  95. 860 print"[214][201][196][195][207][205] 64        =  "chr$(34)"[194].[206][193][205][197]"chr$(34)
  96. 870 print"[201][205][193][199][197] [211][217][211][212][197][205]     =  "chr$(34)"[205][211].[206][193][205][197]"chr$(34)
  97. 880 print"[215]enn vor einem [206]amen (oder im [206]amen) ein besonderes [218]eichen steht,";
  98. 890 print"dann veraendern [211]ie den [206]amen so, dass er mit [203][207][193][204][193]-[210][197][206][193][205][197]";
  99. 900 print" zu bearbeiten ist."
  100. 910 print"[194]itte druecken [211]ie eine [212]aste!":poke198,0:wait198,1:run
  101. 920 :
  102. 930 print"[147] 0 ";:open1,8,0,"$":poke781,1:sys65478:geta$,a$,a$,a$:x$=chr$(0)
  103. 940 fori=1to7:geta$,b$,c$,d$:printa$b$c$d$;:next:print:geta$,a$,a$,b$
  104. 950 ifstthensys65484:close1:print:gosub980:poke198,0:wait198,1:run
  105. 960 printasc(a$+x$)+256*asc(b$+x$);:goto940
  106. 970 end
  107. 980 open1,8,15:input#1,f1,f2$,f3,f4:close15:printf2$:return
  108. 990 :
  109. 1000 poke53280,14:poke53281,6:print"[147][154]at last some hellos to all my friends!"
  110. 1010 poke808,237:end
  111.